Option Strict Off
Option Explicit On
Namespace BMLERP
	Friend Class frmACR115
		Inherits System.Windows.Forms.Form

		Private Sub cmdExit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdExit.Click
			Me.Close()
		End Sub

		Private Sub frmACR115_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
			Adodc1.ConnectionString = ConnectString
			Adodc1.ConnectionTimeout = 10
			Adodc1.CommandType = ADODB.CommandTypeEnum.adCmdText
			Adodc1.RecordSource = "SELECT RCT.*" & " FROM RCT  order by CTTYP"
			Adodc1.Refresh()
			VB6_AddADODataBinding()
			Dim myDataCaptions As String() = {"Cust Type ", "Type Description"}
			Dim myDataFields As String() = {"CTTYP", "CTDSC"}
			setDataGridView(myDataCaptions, myDataFields, Me.grdLotMaster)

		End Sub
	End Class
End Namespace